home *** CD-ROM | disk | FTP | other *** search
/ Tech Arsenal 1 / Tech Arsenal (Arsenal Computer).ISO / tek-03 / vbsource.zip / RECEDIT.TXT < prev    next >
Text File  |  1991-09-12  |  751b  |  28 lines
  1. Global Const NUMBOXES = 5
  2. Global Const SAVEFILE = 1, LOADFILE = 2
  3. Global Const REPLACEFILE = 1, READFILE = 2, ADDTOFILE = 3
  4. Global Const RANDOMFILE = 4, BINARYFILE = 5
  5. Global Const TRUE = -1, FALSE = 0
  6. Type RecordType
  7.   RecordNum  As Long
  8.   FirstName As String * 15
  9.   LastName As String * 20
  10.   Salary As Currency
  11.   Age As Integer
  12.   Gender As String * 1
  13. End Type
  14.  
  15. Global RecordVar As RecordType
  16. Global RecordNumber As Long
  17. Global Position As Long
  18. Global WorkingFileName As String
  19. Global WorkingFileNum As Integer
  20. Global BakName As String
  21. Global LastRecord As Long
  22. Global TempFileFlag As Integer
  23. Global NewRecordFlag As Integer
  24. Global OldContents(0 To 4) As String
  25. Global FileInfoTitle As String
  26. Global TheFileName As String
  27.  
  28.